home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / surface.src < prev    next >
Text File  |  1990-10-20  |  3KB  |  23 lines
  1. %%HP: T(3)A(R)F(.);
  2. @ by Eric Hall
  3. DIR
  4.   G3D
  5.     \<< 30 80 10 10 30 0 0 0 \-> v1 v2 v3 v4 v5 p1 p2 H
  6.       \<< RAD PICT PURGE { # 0h # 0h } PVIEW 0 v1
  7.         FOR Y 0 v2
  8.           FOR X Y v1 / 2 * \pi \->NUM * \pi 2 / \->NUM - SIN 1 + X v2 / 2 *
  9.             \pi \->NUM * \pi 2 / \->NUM - SIN 1 + * v3 * IP X Y + v4 +
  10.             'p1' STO Y v5 + 'p2' STO 1 SWAP DUP 'H' STO
  11.             FOR Q p1 # 1h * p2 Q - # 1h * 2 \->LIST PIXOFF
  12.             NEXT X 2 / DUP IP
  13.             IF ==
  14.             THEN p1 # 1h * p2 H 1 + - # 1h * 2 \->LIST PIXON
  15.             END
  16.           NEXT
  17.         NEXT
  18.       \>>
  19.     \>>
  20.   GRPH
  21. GROB 131 64 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E700000000000000000000000000000008B830000000000000000000000000000006055000000000000000000000000000000940C00000000000000000000000000000831A2300000000000000000000000000004080800000000000000000000000000000E4200E0000000000000000000000000000100010000000000000000000000000000819054910000000000000000000000000042040042000000000000000000000000002420000600000000000000000000000000F0018A09000000000000000000000000080800202800000000000000000000000008014800841000000000000000000000000430020002200000000000000000000000020210040030000000000000000000000003408041584000000000000000000000008D84001001C000000000000000000000004000240004200000000000000000000000E0100000000100000000000000000000002329010A20930000000000000000000008100000808000000000000000000000000C340040200244000000000000000000000648420800080E000000000000000000000180001200002100000000000000455555DF019000001008500000000000008AAAAA60120480054184A00000000000000555DFF0200020400402410000000000000AAAEF03442100100010F200000000000004557F148008040000488500000000000008AA9168084001000001CA000000000000005566811102400AA2042510000000000000AA9812200000A008200A2000000000000045232402901800008097500000000000008A44404000020000020CA00000000000000598888424800000084E510000000000000A231110010005551001B2000000000000045422090020400040287500000000000008A84420480010000184EA00000000000000519042000500000410E510000000000000A229001240000000429B2000000000000045029480008AAAA008C7500000000000008A40002010200002012CA0000000000000059421040A000008240F510000000000000A29480180000000809CB200000000000004521240200455500A427500000000000008A4801A005100051029CA000000000000005125800500000041843510000000000000AA482050000000041ACA2000000000000045120500AAAAAA204125500000000000008AA0508A0000008A049AA000000000000005558A2000000000AA45510000000000000AAA20045555555500AAA2000000000000045555510000000055555500000000000008AAAAAAAAAAAAAAAAAAAA000000000000005555555555555555555510000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  22. END
  23.